REPORT zsch_03_durchblick.
* TABLES-Struktur fr Dynpro-Daten
TABLES: zsch03project.
* Parameter fr das Projekt
PARAMETERS: pa_proj TYPE zsch03project-projekt OBLIGATORY.
* Die Variable zum Befllen
* Variante 1
DATA: gs_project TYPE zsch03project.

* Controls
DATA: go_container TYPE REF TO cl_gui_custom_container,
* Variante 1
go_picture TYPE REF TO cl_gui_picture.

START-OF-SELECTION.
* Das mchtige WRITE zaubert eine Zeile in die Liste
WRITE: / 'Durchblick 3.0'.
* Variante 1: Einzelsatz lesen
SELECT SINGLE * FROM zsch03project INTO gs_project

* Variante 2: die Inline-Alternative
SELECT SINGLE * FROM zsch03project INTO @DATA(gs_project)
WHERE projekt = @pa_proj.
* Jetzt auch mit logischer Kontrolle
IF sy-subrc = 0.
* und in der Liste ausgeben
WRITE: / gs_project.
ELSE.
* Variante 1: die armen User
WRITE: / 'Och schade, nichts gefunden fr Projekt = ', pa_proj.
* Variante 2: die armen User
WRITE: / | Och schade, nichts gefunden fr Projekt = { pa_proj }|.
ENDIF.

* Hier springt die Laufzeitumgebung rein
AT LINE-SELECTION.
* Daten in die TABLES-Struktur
zsch03project = gs_project.
* Dynpro aufrufen
CALL SCREEN 9100.
